clear all
clc
wdir = [ 40 90 90 45 360 335 360 270 335 270 335 335] ;
knots = [ 5 6 8 6 3 9 6 8 9 10 14 12 ] ;
rdir = wdir * pi / 180 ;
[ x, y ] = pol2cart ( rdir , knots) ;
compass ( x, y )
text ( -28, 15, desc )
